home *** CD-ROM | disk | FTP | other *** search
- /* ARexx-Skript for Image Desk */
- /* Version 1.3 vom 03.03.96 */
- /* Wuensche und anregungen an : */
- /* BerndW@trashcan.mcnet.de */
-
- /* Das Skript loescht das Bild im Catalog und das Bild */
- /* selbst, mit sicherheitsabfrage, AB VERSION 3.00 */
-
- /* Funktioniert nur vom Desk mit Aktuellen Catalog !! */
- /* Nach dem Loeschen muss der Katalog jedoch noch gesichert werden */
-
- OPTIONS RESULTS
- PARSE ARG iname itype ipos
-
- ADDRESS IDESK_REXXPORT
-
- /* Requester Tool */
-
- /* Libs Oeffnen */
-
- IF ~SHOW(L,"rexxreqtools.library") THEN DO
- CALL ADDLIB("rexxreqtools.library",0,-30,0)
- END
-
-
- /* Var-Init */
- RTags = "rt_reqpos=reqpos_centerscr rt_pubscrname=IMAGEDESK"
-
-
- GETSYSINFO CATNAME
- catalog = result
-
-
- /* loeschen des eintrages im Catalog */
- /* name holen */
- IF LASTPOS("/",iname) ~= 0 THEN DO
- bname = right(iname,(LENGTH(iname)-LASTPOS("/",iname)))
- end
- ELSE DO
- bname = right(iname,(LENGTH(iname)-LASTPOS(":",iname)))
- END
-
- /* Aufruf */
-
- NL = '0a'x
- text = "Delete Picture "||NL||NL||"Catalog :"||catalog||NL||"Picture :"||bname||NL
-
- abfrage:
- erg =rtezrequest(''text'',"_OK|_Show|_Abruch","IDesk Delete",RTags)
-
- if erg == 0 then do
- text = "Moechten Sie ein Reload Starten ?"
- erg =rtezrequest(''text'',"_Ja|_Nein","IDesk Reload",RTags)
- if erg == 1 then do
- RELOADCAT
- end
- exit
- end
-
- if erg == 2 then do
- VIEWIMAGE '"'iname'"'
- call abfrage
- end
-
- GETBUFPOS '"'bname'"'
- posi = result
- REMFROMBUF '"'posi'"'
- REDRAW
-
- /* loeschen des Bildes */
- ADDRESS COMMAND
- C:DELETE '"'iname'"'
- ADDRESS IDESK_REXXPORT
-
-
-
-
-
-